1 HGR:HOME:DIMC(11,11),D(11,11):HCOLOR=3:FORI=0TO7:READX(I+1),Y(I+1):E=NOTE:FORU=ETO7STEP2:D(U+2,I+2)=1:FORZ=1*20TOI*20+19:HPLOYU*35,ZTOU*35+34,Z:NEXTZ,U,I:HPLOT0,0TO279,0TO279,159TO0,159TO0,0:DATA1,-2,2,-1,2,1,1,2,-1,2,-2,1,-2,-1,-1,-2
2 C(X+2,Y+2)=1:M=NOTM:HCOLOR=M*3:FORW=Y*20+7TOY*20+14:HPLOTX*35+13,WTOX*35+22,W:NEXTW,K:GETD:U=X+X(D):I=Y+Y(D):F=NOTC(U+2,I+2)=(U>-1ANDU<8ANDI>-1ANDI<8):X=X+X(D)*F:Y=Y+Y(D)*F:GOTO2:REM 1,2,3,4,5,6,7 ET 8 !!!